home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)expo87.d64 / black jack.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  8KB  |  314 lines
  1. 0 GOTO1000
  2. 10 PRINT""W7$"[145]"W5$W$"   [157][157][157]";
  3. 11 GETJ$:IFJ$=""THENPRINTWU$WV$;:GOSUB50:PRINTWY$WV$;:GOSUB50:GOTO11
  4. 12 PRINT""W7$"[145]"WZ$:RETURN
  5. 16 PRINT""W7$"[145]"W5$W$"   [157][157][157]";
  6. 18 GOSUB60:J$=W$
  7. 19 PRINT""W7$"[145]"WZ$:RETURN
  8. 20 PRINT"[147]"WZ$:POKEP0,K0:POKEPP,K1
  9. 21 PRINT"";:FORL=C0TO22:PRINTWW$;:NEXT:RETURN
  10. 24 PRINT""+W2$+W2$"TO CONTINUE HIT SPACE "
  11. 25 GETJ$:IFJ$=""THEN25
  12. 26 IFJ$=" "THENRETURN
  13. 28 PRINT"[147]TOTAL $"+STR$(T)
  14. 29 PRINT"END":END
  15. 30 FORZ1=1TO10:PRINT""W7$""WS$""W7$"[146]"WS$:NEXTZ1
  16. 32 R=RND(-TI)
  17. 33 FORI=C0TO51:FL%(I)=C0:NEXT
  18. 34 FORI=C0TO48
  19. 35 C%=51*RND(C1)+C1
  20. 36 IFFL%(C%)<>C0THEN35
  21. 37 C%(I)=C%:FL%(C%)=C1
  22. 38 NEXT
  23. 39 R=0:E=1:GOSUB46:RETURN
  24. 40 W$=W$+LEFT$(WW$,24-LEN(W$)):RETURN
  25. 42 W$=W$+LEFT$(WW$,30-LEN(W$)):RETURN
  26. 46 PRINT""W7$WZ$:RETURN
  27. 48 PRINT""W7$"[145]"W$:RETURN
  28. 49 FORZ=1TO10:PRINT""W7$"[145]"W$:PRINT""W7$"[146][145]"W$:NEXT:RETURN
  29. 50 TT=TI
  30. 52 IFTI-TT<15THEN52
  31. 54 RETURN
  32. 56 TT=TI
  33. 58 IFTI-TT<60THEN58
  34. 59 RETURN
  35. 60 W$="":X1=C0
  36. 61 GETJ$:IFJ$=""THENPRINTWU$WV$;:GOSUB50:PRINTWY$WV$;:GOSUB50:GOTO61
  37. 62 J=ASC(J$):WL=LEN(W$)
  38. 63 IFJ$=WY$THENX1=VAL(W0$):PRINT" [157]";:RETURN
  39. 64 IFJ=CMORWL>=Z9THENW0$=W$:X1=VAL(W$):RETURN
  40. 66 IFJ=20ANDWL>C0THENW$=LEFT$(W$,WL-C1):PRINTWV$;:GOTO61
  41. 67 IF(JAND127)<32THEN61
  42. 68 W$=W$+J$:PRINTWY$WV$J$;
  43. 69 GOTO61
  44. 100 PRINTC$"A[157]"Y$" [157]"Y$"[157] "Y$"[157]A[146]";:RETURN
  45. 101 PRINTC$"2[157]"Y$""Y$"[157]"Y$""Y$"[157]2[146]";:RETURN
  46. 102 PRINTC$"3[157]"Y$""Y$"[157]"Y$"[157]"Y$""Y$"[157]3[146]";:RETURN
  47. 103 GOSUB116:GOTO119
  48. 104 GOSUB103:GOTO121
  49. 105 GOSUB117:GOTO119
  50. 106 GOSUB105:PRINTC$"[145][145][145][145][157][157][157]"Y$;:RETURN
  51. 107 GOSUB118:GOTO119
  52. 108 GOSUB107:GOTO121
  53. 109 GOSUB118:PRINTC$""W1$W3$"10"Y$"[157]"Y$"[157]10[146]";:RETURN
  54. 110 PRINTC$"  [223] [146][169]"W3$"[199][167][165][165]"W3$"[199]   [146]"W3$"[199]   [146][200]";
  55. 111 PRINTW3$"    [146][200]"W3$"   [200][146]"W3$"[167][167][165][200]"W3$"[169] [223][146]";:GOTO119
  56. 112 PRINTC$"  [169][163][212] "W3$"[169][146][194] [181]"W3$"    [146][187]"W3$"[146]     ";
  57. 113 PRINTW3$"[146][188]    [146]"W3$"[182] [221][169]"W3$"[146] [217][164][146][169][146]";:GOTO119
  58. 114 PRINTC$"  [223]  [146][169]"W3$" [170]  "W3$"[169]   [188]"W3$"[146]      [146] ";
  59. 115 PRINTW3$"[187]   [146][169]"W3$"  [146] [165]"W3$"[169]  [223][146]";:GOTO119
  60. 116 PRINTC$" [157] " Y$""Y$"[157][157][157][157][157]"Y$""Y$  " [146]";:RETURN
  61. 117 GOSUB116:PRINT"[157][157][157][157][157][157][145][145][145]"Y$""Y$"[146]";:RETURN
  62. 118 GOSUB116:PRINT"[145][145][145][145][157][157][157][157][157][157]"Y$""Y$"[157][157][157][157][157]"Y$""Y$"[146]";:RETURN
  63. 119 IFX$="P"THENPRINTW1$""W3$N$"[157]"Y$W2$W4$"[157][157][145][145]"N$"[145][157]"Y$"[157][146]";:RETURN
  64. 120 IFX$="D"THENPRINTW1$""W3$N$"[157]"Y$W2$W4$"[157][157][145][145]"N$"[145][157]"Y$"[157][146]";:RETURN
  65. 121 PRINT"[145][145][145][157][157][157]"Y$"[146]";:RETURN
  66. 130 IFZ<>3THENRETURN
  67. 131 W$="YOU WIN":IFT=TYTHENW$="YOU SPLIT"
  68. 132 IFT<TYTHENW$="DEALER WINS"
  69. 133 GOSUB50100:W$="":RETURN
  70. 180 IFY$="[193]"ORY$="[216]"THENC$=C0$:RETURN
  71. 182 IFY$="[211]"ORY$="[218]"THENC$=C1$:RETURN
  72. 189 RETURN
  73. 190 ONX3GOSUB100,101,102,103,104,105,106,107,108,109,110,112,114
  74. 199 RETURN
  75. 200 C=C+1
  76. 202 GOSUB180
  77. 210 IFX$="D"THENX=0
  78. 212 IFX$="P"THENX=12
  79. 220 TE=C%(R):X3=INT(TE/4)+1:Y$=MID$(YZ$,TE-4*(X3-1)+1,1)
  80. 222 N$=MID$(YZ$,X3+4,1):X9=X3:GOSUB180
  81. 229 R=R+1
  82. 230 IFX3>9THENX9=10
  83. 232 IFX3=1THENX9=11
  84. 239 IFX$<>"P"THEN260
  85. 240 X8=X8+X9:IFX3=1THENA=A+1
  86. 250 IFA>0THENIFX8>21THENX8=X8-10:A=A-1
  87. 259 RETURN
  88. 260 X7=X7+X9:IFX3=1THENB=B+1
  89. 270 IFX8<22ANDX7=X8THEN290
  90. 280 IFB>0ANDX7>21THENX7=X7-10:B=B-1
  91. 290 IFX8>21THENC=3
  92. 299 RETURN
  93. 300 PRINT""
  94. 310 IFX$="P"THENX=12
  95. 320 IFX$="D"THEN X=0
  96. 330 IFX=0THEN340
  97. 339 FORZ1=1TOX:PRINT"";:NEXT
  98. 340 IFY=0THEN53701
  99. 349 FORZ1=1TOY:PRINT"";:NEXT
  100. 350 IFX$="D"ANDC=2THEN360
  101. 359 IFY>0ANDC>0THENPRINT"[167][157][167][157][167][157][167][157][167][157][167][157][167][157][167][157][167][157]"W1$"";
  102. 360 FORZ1=1TO9
  103. 362 IFH=0THENPRINTW9$"[157][157][157][157][157][157][157]";
  104. 364 IFH=1THENPRINTW8$"[157][157][157][157][157][157][157]";
  105. 369 NEXT
  106. 370 IFH=1THENPRINTW1$;
  107. 379 RETURN
  108. 1000 CLR:PRINT"[147]":POKE59468,12:POKE53280,15:POKE53281,1
  109. 1002 W1$="[145][145][145][145][145][145][145][145][145]":W2$="":W3$="[157][157][157][157][157][157][157]":W4$="":W7$=W2$+""
  110. 1004 W0$="":WY$=CHR$(32):WW$=WY$:FORI=1TO6:WW$=WW$+WW$:NEXT:WW$=""+WW$
  111. 1006 WW$=LEFT$(WW$,41):WZ$=LEFT$(WW$,40):W5$=LEFT$(WW$,7):WU$="[166]":WV$="[157]"
  112. 1008 B$=LEFT$(WW$,31):BB$=MID$(WW$,2,32)
  113. 1009 W8$="       ":W9$="[166][166][166][166][166][166][166]"
  114. 1010 C0=0:C1=1:C2=2:C6=6:CM=13:P0=1063:PP=55335:K0=160:K1=6:TZ=10:Z9=C6
  115. 1012 C0$="[151]":C1$="[150]":O$=CHR$(CM)
  116. 1014 YY$="YOU HAVE":WS$=" S H U F F L I N G ":YZ$="[193][211][216][218]A234567891JQK"
  117. 1019 DIMC%(51),FL%(51)
  118. 1050 PRINT"[147]"SPC(5)B$
  119. 1052 PRINTSPC(5)" BLACKJACK     COMMODORE 1978 ":PRINTSPC(5)B$
  120. 1054 PRINTSPC(5)" REWRITTEN FOR VIC 64      BY ":PRINTSPC(5)B$
  121. 1056 PRINTSPC(5)" DAVID MAKINS    SEATTLE 1982 ":PRINTSPC(5)B$
  122. 1059 PRINT""SPC(5)B$
  123. 1060 PRINTSPC(5)" WHEN PLACING BETS -          ":PRINTSPC(5)B$
  124. 1062 PRINTSPC(5)" ENTER AMOUNT AND HIT RETURN. ":PRINTSPC(5)B$
  125. 1064 PRINTSPC(5)" TO REPEAT SAME AMOUNT -      ":PRINTSPC(5)B$
  126. 1066 PRINTSPC(5)" HIT SPACE                    ":PRINTSPC(5)B$
  127. 1068 PRINTSPC(5)" TO START - HIT SPACE         ":PRINTSPC(5)B$:GOSUB25
  128. 1069 PRINT"[147]
  129. 1099 [141]20:[141]30:[137]30010
  130. 3000 [153]""
  131. 30000 [141]20
  132. 30010 S$[178]"":B[178]0:A[178]0:C[178]0:V[178]0:VV[178]0:X7[178]0:X8[178]0:Z[178]0
  133. 30020 [153]""W$:[153]""[163]18)"  YOUR BET? ";:[141]18
  134. 30030 BJ[178]0:X2[178][181](X1):[139]X2[179]1[167]30000
  135. 30100 [139]X2[177]25000[167]W$[178]"HOUSE LIMIT = $25000":[141]50100:[137]30000
  136. 30110 H[178]1:L7[178]X2:DD[178]X2:[141]49120
  137. 30120 X2$[178][196](X2):X2$[178][200](X2$[170]B$,11)[170]"CMDCMD "
  138. 30130 [153]""[166]20)"     BET$"X2$
  139. 30200 [139]R[177]36[167][141]30
  140. 30900 X$[178]"P":[141]220
  141. 31000 D2[178]X3:D2$[178]N$:D5$[178]Y$:X[178]12:Y[178]0
  142. 31300 [141]300:[141]190
  143. 31910 X$[178]"D":[141]220
  144. 40100 H[178]0:X[178]0:Y[178]0:[141]300
  145. 40200 D1[178]X3:D1$[178]N$:D3$[178]Y$:H[178]1:Y[178]Y[171]1
  146. 40210 X$[178]"P":[141]200
  147. 40217 [139]Z[178]3[167]P2[178]X8
  148. 40218 D4[178]X3:D4$[178]N$:D6$[178]Y$
  149. 40224 T5$[178][196](X8)
  150. 40225 Y[178]Y[170]3:[141]300:[141]190
  151. 40360 [139]C[177]1[176]Z[177]0[167][142]
  152. 40370 Y[178]Y[170]6
  153. 40380 X$[178]"D":[141]200:[141]300:Y[178]Y[171]1:[141]190
  154. 40560 [139]C[177]2[167][142]
  155. 40566 Y[178]Y[171]5
  156. 40570 [139]X3[178]1[167][141]59700
  157. 40700 W$[178]YY$[170][196](X8):[141]59800
  158. 40710 [139]X7[178]21[176]X8[178]21[176]X8[177]21[167]49000
  159. 40720 [139]C[178]5[175]X8[179]22[167]49000
  160. 40723 [139]C[178]2[175]D4[178]D2[175]Z[178]0[167]57000
  161. 40726 W$[178]"DO YOU WANT A HIT?(Y/N)":[139]C[179]3[167]W$[178][200](W$,24)[170]"/D)"
  162. 40730 [141]10
  163. 40910 [139]J$[178]"Y"[167][141]40210:[137]40700
  164. 40950 [139]J$[178]"N"[167]49000
  165. 40956 [139]J$[178]"D"[175]C[179]3[167]59600
  166. 40960 [137]40720
  167. 45000 CC[178]C:X$[178]"D":X[178]0:Y[178]0:[141]300:X3[178]D1:N$[178]D1$:Y$[178]D3$
  168. 45002 [141]180:[141]190:Y[178]Y[170]6
  169. 45010 [139]Z[178]3[175]VV[178]0[175]X8[179]21[167]W$[178]YY$[170][196](X8):[141]59800
  170. 45012 [139]Z[179]3[175]X8[179]22[167]W$[178]YY$[170][196](X8):[141]59800
  171. 45015 [139]X7[178]21[167]45021
  172. 45016 [139]CC[178]2[175]X8[178]21[175]Z[179][177]3[167]45021
  173. 45018 [139]X7[177]16[167]45021
  174. 45020 Y[178]Y[170]4:C[178]4:[141]40380:[137]45015
  175. 45021 [139]Z[179][177]3[167]46000
  176. 45022 [139]P2[178]21[175]VV[178]0[167]C[178]CC:[137]58000
  177. 45023 [139]VV[167][141]59500
  178. 45024 [139]P2[177]21[167][141]57500
  179. 45025 [139]X7[179]22[167]45031
  180. 45027 [153]""W2$"BUSTED WITH"X7
  181. 45028 [139]VV[178]0[175]P2[179]21[167]T[178]T[170]DD
  182. 45029 [139]V[178]0[175]P1[179]21[167]T[178]T[170]X2
  183. 45030 [137]49004
  184. 45031 [139]V[178]0[175]P1[179]21[175]P1[177]X7[167]T[178]T[170]X2
  185. 45032 [139]P1[179]21[175]X7[177]P1[175]V[178]0[167]T[178]T[171]X2
  186. 45033 [139]P2[179]21[175]X7[177]P2[175]VV[178]0[167]T[178]T[171]DD
  187. 45034 [139]VV[178]0[175]P2[179]21[175]P2[177]X7[167]T[178]T[170]DD
  188. 46000 [137]49004
  189. 49000 [139]C[178]5[175]X8[179]22[175]Z[178]3[167]VV[178]9
  190. 49001 [139]C[178]5[175]X8[179]22[175]Z[179]3[167]V[178]8
  191. 49002 [139]Z[178]2[167]49005
  192. 49003 [137]45000
  193. 49004 [139]Z[178]3[167]49110
  194. 49005 [139]X8[177]21[167][141]57500:[137]49110
  195. 49006 [139]X7[177]21[175]V[178]0[167]59010
  196. 49007 [139]X8[178]21[167][137]58000
  197. 49009 [139]X7[178]21[167][137]58500
  198. 49010 [139]V[178]8[167][141]59500:[137]49110
  199. 49011 [139]Z[178]2[167]57100
  200. 49015 [139]X8[177]X7[167]59010
  201. 49020 [139]X8[178]X7[167]59030
  202. 49030 [139]X8[179]X7[167]59050
  203. 49110 [139]Z[178]2[167][137]57100
  204. 49116 [139]X7[179]22[167][153]""W2$"DEALER HAS"X7
  205. 49117 [139]Z[178]0[167][141]50100
  206. 49119 [141]130:[141]49120:[141]24:[137]30000
  207. 49120 TY[178]T:[139]T[178]0[167]W$[178]"BROKE EVENWAIT"
  208. 49121 [139]T[177]0[167]W$[178]"WINNING $"[170][196](T)
  209. 49122 [139]T[179]0[167]W$[178]"LOSING $"[170][196]([182](T))
  210. 49124 [141]40:[139]FF[178]0[167][153]""W$
  211. 49126 [139]FF[178]1[167]FF[178]0
  212. 49129 [142]
  213. 50100 [139]BJ[178]0[175]X8[178]21[175]X7[179][177]21[167]W$[178]"YOU WIN"
  214. 50109 [141]49:[142]
  215. 50700 [145]X3[141]100,101,102,103,104,105,106,107,108,109,110,112,114
  216. 50740 [142]
  217. 51800 [139]Y$[178]"ATN"[176]Y$[178]"(null)"[167]C$[178]C0$:[142]
  218. 51810 [139]Y$[178]"(null)"[176]Y$[178]"(null)"[167]C$[178]C1$:[142]
  219. 51820 [142]
  220. 52000 [143]
  221. 52200 TE[178]C%(R):X3[178][181](TE[173]4)[170]1:Y$[178][202](YZ$,TE[171]4[172](X3[171]1)[170]1,1)
  222. 52202 [141]51800
  223. 52210 N$[178][202](YZ$,X3[170]4,1):X9[178]X3
  224. 52220 R[178]R[170]1
  225. 52620 [139]X3[177]9[167]X9[178]10
  226. 52625 [139]X3[178]1[167]X9[178]11
  227. 52630 [139]X$[179][177]"P"[167]52650
  228. 52635 X8[178]X8[170]X9:[139]X3[178]1[167]A[178]A[170]1
  229. 52640 [139]A[177]0[167][139]X8[177]21[167]X8[178]X8[171]10:A[178]A[171]1
  230. 52645 [142]
  231. 52650 X7[178]X7[170]X9
  232. 52651 [139]X3[178]1[167]B[178]B[170]1
  233. 52652 [139]X8[179]22[175]X7[178]X8[167]52670
  234. 52660 [139]B[177]0[175]X7[177]21[167]X7[178]X7[171]10:B[178]B[171]1
  235. 52670 [139]X8[177]21[167]C[178]3
  236. 52700 [142]
  237. 52800 C[178]C[170]1
  238. 52810 [139]X$[178]"D"[167]X[178]0
  239. 52820 [139]X$[178]"P"[167]X[178]12
  240. 52830 [137]52200
  241. 53000 [153]""
  242. 53100 [139]X$[178]"P"[167]X[178]12
  243. 53120 [139]X$[178]"D"[167] X[178]0
  244. 53130 [139]X[178]0[167]53405
  245. 53200 [129]Z1[178]1[164]X:[153]"";:[130]
  246. 53405 [139]Y[178]0[167]53701
  247. 53500 [129]Z1[178]1[164]Y:[153]"";:[130]
  248. 53701 [139]X$[178]"D"[175]C[178]2[167]53710
  249. 53705 [139]Y[177]0[175]C[177]0[167][153]"THENCMDTHENCMDTHENCMDTHENCMDTHENCMDTHENCMDTHENCMDTHENCMDTHENCMD"W1$"";
  250. 53710 [129]Z1[178]1[164]9
  251. 53805 [139]H[178]0[167][153]W9$"CMDCMDCMDCMDCMDCMDCMD";
  252. 53810 [139]H[178]1[167][153]W8$"CMDCMDCMDCMDCMDCMDCMD";
  253. 53910 [130]
  254. 53920 [139]H[178]1[167][153]W1$;
  255. 53930 [142]
  256. 54000 [129]I1[178]0[164]8:[153]W8$:[130]:[153]W1$:[142]
  257. 57000 W$[178]"DO YOU WANT TO SPLIT?(Y/N)":[141]10
  258. 57010 [139]J$[178]"N"[167][137]40726
  259. 57015 [139]J$[179][177]"Y"[167]57000
  260. 57020 [139]D2[178]1[167]A[178]1
  261. 57021 F[178]X8[173]2:[139]D2[178]1[167]F[178]11:X8[178]11
  262. 57029 C[178]0
  263. 57030 X$[178]"P":X[178]13:Y[178]0:[141]53000:X3[178]D2:N$[178]D2$:Y$[178]D5$:[141]50700
  264. 57040 X$[178]"P":X[178]13:Y[178]20:[141]53000:X3[178]D4:N$[178]D4$:Y$[178]D6$:[141]50700
  265. 57070 X8[178]F:C[178]1:Y[178][171]1:Z[178]2:X[178]13:[141]40210:[137]40700
  266. 57100 [139]V[178]0[175]X8[179]22[167]W$[178]YY$[170][196](X8):[141]59800
  267. 57110 A[178]0:P1[178]X8:X8[178]F:C[178]2:[139]D2[178]1[167]A[178]1
  268. 57170 X$[178]"P":X8[178]F:C[178]1:Y[178]19:Z[178]3:X[178]13:[141]40210:[137]40700
  269. 57500 [139]Z[178]3[167]T[178]T[171]DD
  270. 57505 [139]Z[179]3[167]T[178]T[171]X2
  271. 57510 W$[178]"BUSTED WITH"[170]T5$:[141]59800:F9[178]20:W$[178]"DEALER WON":[142]
  272. 58000 [139]C[177]2[167]58100
  273. 58003 [139]Z[178]0[175]X7[178]X8[167]59030
  274. 58005 [139]Z[178]3[167]T[178]T[170](1.5[172]DD)
  275. 58015 [139]Z[179]3[167]T[178]T[170](1.5[172]X2)
  276. 58025 BJ[178]1:W$[178]"YOU WIN WITH WAITBLACKJACK":[137]49110
  277. 58100 [139]Z[178]0[175]X7[178]X8[167]59030
  278. 58101 [139]Z[178]0[175]V[178]8[167][141]59500:[137]49110
  279. 58102 [139]Z[179]3[167]T[178]T[170]X2
  280. 58103 [139]Z[178]3[167]T[178]T[170]DD
  281. 58105 W$[178]YY$[170]" 21":[141]59800:[139]X7[179][177]X8[167]49110
  282. 58500 [139]X7[178]X8[167]59030
  283. 58502 [139]C[177]2[167]58600
  284. 58510 W$[178]"DEALER WINS WITH WAITBLACKJACK":T[178]T[171]X2:[137]49110
  285. 58600 [139]Z[178]0[167][139]X7[178]X8[167]59030
  286. 58610 [139]Z[178]3[167]T[178]T[171]DD
  287. 58620 [139]Z[179]3[167]T[178]T[171]X2
  288. 58630 W$[178]"DEALER WINS":[137]49110
  289. 59010 T[178]T[170]X2:W$[178]"YOU WIN"
  290. 59013 [139]X7[177]21[167][153]""W2$"BUSTED WITH"X7:W$[178]"YOU WINWAIT"
  291. 59029 [137]49110
  292. 59030 W$[178]"THIS IS A PUSH"
  293. 59037 [139]C[178]2[167][139]X7[178]21[167]W$[178]"BOTH HAVE BLACKJACK"
  294. 59040 [137]49110
  295. 59050 T[178]T[171]X2:W$[178]"DEALER WINS":[137] 49110
  296. 59500 [139]Z[178]3[167]T[178]T[170]DD
  297. 59510 [139]Z[179]3[167]T[178]T[170]X2
  298. 59520 W$[178]"5 CARD CHARLIE !":[139]Z[177]0[167]59800
  299. 59530 [142]
  300. 59600 [139]Z[179]3[167]X2[178]X2[172]2
  301. 59605 [139]Z[178]3[167]DD[178]DD[172]2
  302. 59606 [141]40210:[137]49000
  303. 59700 W$[178]"INSURANCE?(Y/N)":[141]10
  304. 59720 [139]J$[178]"N"[167][142]
  305. 59722 [139]J$[178]"Y"[167]59730
  306. 59724 [137]59700
  307. 59730 W$[178]"INSURANCE BET $":Z9[178]6:[141]16:I[178][181](X1):[139]I[179]1[176]I[177]25000[167]59730
  308. 59750 Z9[178]0:[139]X7[178]21[167]T[178]T[170]2[172]I:[141]49120:[142]
  309. 59760 W$[178]"NO BLACKJACK LOST YOUR INSURANCE":[141]46:[141]48
  310. 59770 T[178]T[171]I:[141]49120:[141]56:[142]
  311. 59800 [139]Z[179]3[167][153]"ONWAIT"W7$W$"  ":[142]
  312. 59810 [139]Z[178]3[167][153]"ONWAIT"W7$W4$W4$W4$"CMD"W$"  ":[142]
  313. 59820 [142]
  314.